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ZTITLE ‘SYSRDBRES - Rights database resident system services’ 
p MODULE SYSROBRES CIDENT@* SyoncooO'S , 4 
BEGIN 
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RARER AAA AAAAAAAAAAAAAAAAAAAAAAAEAAAAAEAEAAAAAAAAEAAAAAAAAAAAAAAAARARAAAEEEEE 
'@ * 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
i. ALL RIGHTS RESERVED. * 
' tr 
'w THIS SOFTWARE IS et eo UBER A. ICENSE AND MAY * 
'® ONLY IN ACCORDANCE WITH OF SUCH LIC * 
'® INCLUSION OF THE ABOVE COPYRIGHT ENOTICE. THIS SOFTW * 
' COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MAD * 
'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE S$ * 
7 TRANSFERRED. * 
'® ® 
'e THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. ® 
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TY FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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FACILITY: EXECUTIVE, SYSTEM SERVICES 

i ABSTRACT: 

This module contains the Pan pda yes A wrth rg pk ane $F INISH_RDB 


rights database s etee services additi t contains 
EXESOPEN_RDB, EXESCLOSE_RDB, and EXESSET tROIE TRE which are 


ee ee ee me ce mc ee ee em me me ee me ee ee ee a ae ed ek etd ed od ed od od = 


i 
i 
! 
i 
8 i subrout ines used by. the sights database System services. 
9 : This module is contained in the exec, the remaining rights 
rt database system services are in a privileged shareable image. 
ri} ENVIRONMENT: 
4 : VAX/VMS native mode, user, supervisor, or exec modes. 
4 inn 
4 ' 
$8 AUTHOR: Andrew C. Goldstein, CREATION DATE: 16-Nov-1982 18:51 
? MODIFIED BY: 
5 i v03-011 LMPO218 L. Mark Pitan nt 24-Mar-1984 22:56 
! ix a bug introduced in LMP0202. Make an underscore a legal 
: : ideneirior name character. 
6 i v03-010 LMP0202 L. Mark Pilant, 28-Feb-1984 14:37 
5 ! Add a translation table to upcase the identil er name. 


Snags «Svensson anttanerentsone ayoen or it-fepcis HRTE:SS YG] lnc fal re of 


v03-009 epner Scott Hanna 05-Jan-1984 
Change EXESOPEN ROB to return SS$_IVCHAN when the user 
sp the @ non-Zero context which has an ISI vector entry 


v03-008 TMKO002 29-Nov-198 
Change the name of se xegasctolD to EXESSASCTOID. Ris change 
WAS fequires because this system service could no longer be 
reached from the change mode displatcher. 


v03-007 RSHO082 R. Scott Hanna 16-Nov-1983 
SP ini ed RDB 
~ Return SS$. INSFARG when the CONTXT argument is 
- Return’ S$_IVCHAN if CONTXT points to a longword 
that contains 0. 


SIDTOASC 
- Return SSS_INSFARG if CONTXT is not specified with 
a wildcard ID. 


v03-006 geen Todd 22-0c t-1983 
Change the name of EXESF tN ia RDB to EXESSFINISH_RDB 
and the name of EXESIDTOASC to EXESSIDTOASC. This was 
required ee these system services could no longer be 
reached from the change mode displatcher. 


v03-005 RSHO063 R. Scott Hann 12-Sep-1983 
fodi ty ID value check to neture $S$_ IVIDENT® lor an 
Poftatt. Change wildcard ID value from 0 to -1 in 


V03-004 RSH0049 Scott Hanna 28-Jul-1983 
epee ed EXESOPEN™ RDB to use the new FAB bits 
FABSV_LNM_MODE instead of FABSB_DSBMSK. 


V03-003 RSHO0040 Sco 21-Jun-1983 
Add EXESCLOSE ROB: Rrastas additional ID name validation. 
Open the rights database as a process permanent file when 
there is no active image. 


v03-002 R Scott Hanna 25-May-1983 
Rodity. FAB in XESOPEN RDB so ‘that logical nane can be 
used for the r a database file name. 


v03-001 RSHO0007 Scott H 01-Mar-1983 
Add rout ine EXESSET RDIPTR — modi fy EXESOPEN., RDB to 
use it. 
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0 09 00 
Me 


008 
008 


PSECT 
CODE = YEXEPAGED (WRITE), 
PLIT = YEXEPAGED (WRITE, EXECUTE); 


LIBRARY ‘SYSSLIBRARY:LIB.L32°; 
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Heys! sre SYSRDBRES .B32; 


FORWARD 
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D 
RDB : NOVALUE, 


LINKAGE 


EXE_PROBE_DSC = 1; REGISTER=1, REGISTER=2) : 
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EXE_VAL_IDNAME = J 
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mMmMnAwnmnAwm- 


2 

SS 

Cc 
mmommomm 


2a DBO war 


5 
6,7,8,9,10,11), 
feasts’ REGISTER=1, REGISTER=2) : 
5.6 

ER= 

(3); 
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7,8,9,1 
EXE_ALOPIIMAG = JB {; Pes eteRey. REGISTER=2) : 


EXTERNAL oe 
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EX EXE “ALOPI DSC ADDRESSING_ ee 
EXE ALO : EXET -{LOP TMAG ADDRESSING M 
EXESVAL_IDNAME : EXE VAL_IDNAME ADDRESSING. B 
SYSSCMKR : ADDRESSING_MODE (ABSOLUTE); 


(ABSOLUTE), 
(ABSOLUTE) 
$0 brutes. 


EXTERNAL 
CTLSGL_RDIPTR =: REF SBBLOCK ADDRESSING _MODE (ABSOLUTE), 
CTLSGL-IMGHDRBF : LONG ADDRESSING_MODE (ABSOLUTE); 


Ft eh oko) 
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BUILTIN 
PROBEW; 


LITERAL 
UICSM_ID_FORM_FLAG = 1°31; ! mask for id form of identifier 
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GLOBAL ROUTINE EXESSASCTOID (NAME, ID, ATTRIB) = 
!o4 


i 
FUNCTIONAL DESCRIPTION: 


This routine searches the rights database for the specified 
name, and returns the matching identifier code and attributes. 


! CALLING SEQUENCE: 
SYSSSASCTOID (NAME, ID, ATTRIB) 


i INPUT PARAMETERS: 
NAME: address of the identifier name character 
string descriptor to be converted 


i IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
: (optional) address to return the identifier longword 
ATTRIB: (optional) address to return the attributes longword 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status of operation 
SIDE EFFECTS: 
NONE 
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LOC_NAME : REF VECTOR, ! local copy of NAME 
LENGTH : LONG, ! output from EXESVAL_IDNAME 
ADDRESS : LONG, ! output from EXESVAL_IDNAME 
LOC_ID : LONG, ' local copy of ID 

1 LOC_ATTRIB : LONG, ! local FoRy of ATTRIB 

§ STATUS : LONG, ! general ; atus value 
CLOSE : ° ' call EXE SL O55 RDB flag 

4 RAB : S$RAB pECh ! RAB for f 170 

95 REC_BUFFER : SBBLOCK CKGBSK_IDENT_RECORD), 


tT record buffer to read records 
NAME _BUFFER : SBBLOCK CKGBSS_NAME); 
T name key buffer 


! Define a qiobal translation table to do the upcasing of the identifier 
! name. This should pores ier the validation table for the exec routine 
! EXESVAL_IDNAME in the module CSYS.SRCJEXSUBROUT.MAR. 


GLOBAL BIND 
EXEST_ID_UPCASE = CHSTRANSTABLE ( 
REP 36 OF (XC' '), 
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LOCAL 
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-Sep-1 SYS.SR 
tte a4 OF (xc' ") ig-/ 
cay "2° Fae hh se Fgh e726 1ge ege, 
REP’ 7 OF (fc? ') ce | 
te ly a D',"E*, "Ft, §Gt Ht sea hak ee 
i a ‘p? a ee ee ee Dee ee a 
REP’ 4 OF (&c" '), Lee? 
REP’ 1 OF (XC' ") i? 
TA'"BT'Ch, pt tet tee Fg eye ee eye eye ope ome 
a ty ' ‘p? A ee ee ee A ee, ee a 
REP’ 5 OF (4c ') 1 {'= de 
REP 128 OF (%C' '5); i {x80 = %XxFF 
LABEL 
RDB_OPEN; ! rights database is open in this block 


} Validate parameters 


LOC NAME = .NAME; 

STATUS = EXESVAL_IDNAME( .LOC_NAME; LENGTH, ADDRESS); 

IF NOT .STATUS TREN RETURN .STATUS; 

CHSTRANSLATE (EXEST_ID_UPCASE, .LENGTH, .ADDRESS, ' ', KGBSS_NAME, NAME_BUFFER); 


LOC_ID = .ID; 
IF [LOC_ID NEQU 0 AND NOT PROBEW (ZREF(O), %REF(4), -LOC_ID) 


RETURN SS$_ACCVIO; 


LOC_ATTRIB = ATTRIB; 
IF [LOC_ATTRIB NEQU 0 AND NOT PROBEW (XREF(O), %REF(4), -LOC_ATTRIB) 


N 
RETURN SS$_ACCVIO; 
: Open the rights database for reading. 


SRAB_INIT (RAB = RAB, 
—~ FE oe 
= 
KBF = NAME BUFFER, 
KSZ = K ¥. ° 
ROP = (WAT, NLK) 
USZ = KGBSK_IDENT_RECORD, 
UBF = REC_BOFFER 


STATUS = EXESOPEN_RDB (0, 0, RABCRABSW_ISIJ, CLOSE); 
IF NOT .STATUS THEN RETURN .STATUS; 


RDB_OPEN: 
BEGIN 


Read the record and return the data items. 


STATUS = $GET (RAB = RAB); 
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-TITLE SYSRDBRES SYSRDBRES = Ri 


-IDENT \V04-000\ 
~PSECT YEXEPAGED,2 


Sep-1986 18:i4: 


Vé 


EN STATUS = SS$ 
E 
K 
! End of routine EXES$ASCTOID 
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OTFOOK NUM TMNOPR-DOOKUM TN OF- OO £OVOWLOK- UMS 
SOOO SS SF SF SF SF SF SST TT TN 


ser 1 
1 
OPEN; 
= 


-RDB(); 


oc_ 
N 
NORMAL; 
ghts database if there is no image 


~STATUS EQLU_RMS$_RNF TH 
TATUS THEN CEAVE RDB 


F .S 
F NOT .S 
L 
L 
STATUS = SS$ 


END; 
' Close the ri 


I 
I 
I 
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«CLOSE THEN EXESCLOSE 


aga » STATUS 
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EN 
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SYSRDOBRES SYSRDBRES = Rights database resident system ser 1 - 
vOn~000 . : 1 R 
A 06 B IN R10 : 
68 04 09 f probew #0, #4, (LOC_ID) : 
57 OC AC OD 1$: MOVL ATTRIB, LOC_ATTRIB : 0237 
D CLRL : 0238 
p 9 TSTL LOC_ATTRIB : 
§ B BEQL : 
D INCL R : 
67 04 0 : : PROBEW #0, #4, (LOC_ATTRIB) : 
50 C i 4 2$: MOVL #12, RO + 0240 
0044 8F 00 bE - 00 ¢ 49 3$: MOVCS #0, (SP), #0, #68, S$RMS_PTR + 0253 
54 AE 4401 8F B 03 MOVW #17409, $RMS_PTR : 
3s 8 O9¢0 ROVE AII7RERS. SARE PIRES 
74 AE 0 80 064 MOVW #48, SRMS_PTR+ : 
78 =OAE 4 AE 9E 00068 MOVAB REC BUFFER, $RMS_PTR+36 : 
EC AD 4 AE 3 0 $0 MOVAB NAME_BUFFER, SRMS_PTR+48 : 
FO AD 0220 8F B80 00 ’ MOVW #5447 S$RMS_PTR+52 : 
E DD 0007 PUSHL SP + 0254 
SA AE 9F OOO7A PUSHAB RAB+2 ; 
7E 7C 00070 CLRQ = = (SP) ; 
0000v cr 94 FB 0007F CALLS #4, EXESOPEN_RDB : 
: 0 D 99 MOVL RO, STATUS F 
3 56 ; 4$: BLBC _—« STATUS, 9$ : 0255 
54 AE SF OOOBA PUSHAB R : 0263 
000000006 00 1 F 0080 CALLS #1, SYSSGET ; 
6 0 D 99 MOVL RO, STATUS : 
00018282 8F 36 D} 9097 CMPL TATUS, #98994 + 0264 
56 21EC BF 3¢ OOAD MOVZWL #8684, STATUS ; 
11 6 £9 O00A5 5$: BLBC STATUS, 8$ : 0265 
04 SA ED 000A8 BLBC : 0267 
68 24 =A 06 AB MOVL REC UFFER, (LOC_ID) ; 
04 59 €E AF 6$: BLBC =O séaR 3 0268 
7 28 «AE 00 0008 MOVL REC _BUEFER+4, (LOC_ATTRIB) : 
: 01 DO 00086 7s: MOVL #1, “STATUS : 0270 
0 ; a 908 8$: BLBC cl SE, 9$ : 0276 
0000v CF F Bt CALLS @# EXESCLOSE_RDB : 
0 4 00C1 9$ MOVL STATUS, R ; 0277 
4 000C4 ; 0278 


; Routine Size: 197 bytes, Routine Base: YEXEPAGED + 0100 
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-Sep-1 
GLOBAL ROUTINE EXESSFINISH_RDB (CONTXT) = 


'o4 
{ 


FUNCTIONAL DESCRIPTION: 


This routine cleans up the RMS stream associated with the 
specified context. 


CALLING SEQUENCE: 
SYSSFINISH_RDB (CONTXT) 


INPUT cee ena: 
CONTXT: eer of a longword containing the record stream 
xt. 


sata | ae 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Status of operation 


SIDE hoki 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i QUTPUT PARAMETERS: 
NONE 
i 

i 

i 

i 

i 

i 

i 

- tream disconnected 
ie 


BEGIN 
LOCAL 
LOC_CONTXT : LONG, ' Local copy of CONTXT 
et ~ INDEX : LONG, ! Index into ISI vector 
: SRAB_DECL; ! RAB for stream to close 


: Validate parameters 


. ants = pet rete” 0 THEN RETURN SS$_IVCHAN; 


C 

~CONTX 

~LOC_C f pal THEN RETURN SS$_INSFARG; 

NOT PROBEU (ZREF(O), ZREF(4), .LOCICONTXT) THEN RETURN SS$_ACCVIO; 


: Find the stream open on the specified context. 


IF 
LOC 
IF 
IF NO 
‘ 


. LOCC 
ist 
CONTXT = 0; 

ECTOR CCTLSGL_RDIPTRCRDISL_ISI_VEC], .1SI_INDEX) EQLU 0 
RETURN SS$_NORMAL; 


<= 
po 


= 
week POU 0 0) “Oh (.ISI_LINDEX GTRU RDISK_ISI_MAX) THEN RETURN SS$_IVCHAN; 
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‘ Set up a RAB and disconnect it. 


SPuw 


ONOULSWIN—OOW 


aT araeR ease ietg ° atta} OR CCTLSGL_RDIPTRCRDISL_1S1_VEC], .1SI_INDEX); 
; vecTOn mCCTLSGL t aoiFtacnoisi.t8 IS1_VECJ, .ISI_ INDE x7 ¥ sips 
= e 
4 Hy nest TWORMAL: 
é 


END; ! End of routine EXESSFINISH_RDB 


S at et tat et tae ee 


eEXTRN SYSSDISCONNECT 


O1FC 9009 ENTRY EXESSEINISH. RDB, Save R2,R3,R4,R5,R6,R7,RB = 0279 
SE BC AE 9€ 0000 MOVAB : 
D MOVL ACTL 6L -RDIPTR, R ¢ 
000000006 oF : 0 ROVL TL$ 7 0322 
50 04 DO 0000F MOVL § CONTXT, LOC_CONTXT : 0323 
06 1 0013 BNEQ + 0324 
50 0114 «=F 3¢ 0015 MOVZWL #276, RO : 
60 04 0 5 001B 1$ PROBEW #0, #4, (LOC_CONTXT) > 0325 
4 OO1F BNEQ ; 
50 C p 1 MOVL #12, RO : 
4 00024 RET : 
D MOVL LOC_CONTXT), ISI_INDEX : 
56 6 0025 2$ ( TXT), ISI 0330 
13 00028 BEQL : 0331 
OA 6 Di 0002A CMPL ISI_INDEX, #10 : 
06 1B 0002D BLEQU ; 
50 013c =F 3¢ O2F 3$ MOVZUL #316, RO ; 
60 D4 6 ; 4$ CLRL is CONTX : 0332 
SB 0c A746 og 0 t ROVL (R7)CISI TINDEX), R8 : 033 
0044 8F 00 6E 06 2c 00% MOVCS 2. (SP), #0, #68, SRMS_PTR : 0340 
6E 4401 80 0046 MOVW #17409 $RMS _PTR : 
02 8 BO 00048 MOV 8 atte : 0341 
OC A746 D4 0004F CLRL ‘ Sint ISI_INDEX] 3 0 : 
SE OD 3 PUSHL : 034 
000000006 99 1 FB 6 CALLS #1, SYSSDISCONNECT ; 
1 C 5$: MOVL #1, RO > 0344 
4 0005F RET > 0346 


3; Routine Size: 96 bytes, Routine Base: YEXEPAGED + 01C5 
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Senge! Sraaneh = etges secatnc content aocen oor HEP aate AES MT NMNRD ESI TO 


GLOBAL ROUTINE EXESSIDTOASC (1D, NAMLEN, NAMBUF, RESID, ATTRIB, CONTXT) = 
'44 


' 
FUNCTIONAL DESCRIPTION: 


This routine searches the rights database for the qpees tree 
identifier, and returns the matching name and attributes. 
If a wildcard identifier ang a context is provided, the 
routine returns all identifiers in lexical order. 


CALLING SEQUENCE: 
SYSSIDTOASC (ID, NAMLEN, NAMBUF, RESID, ATTRIB, CONTXT) 


FUN“ O CONOU ES WIN" O0O~ 


SSSSHISALERIS SaVenruw—o 
OOOCCSCCOCOOOOoOoO 


3 1 

3 1 

3 1 

Py 1 2 

3 so 

; 1! 

3 1! 

$ zs 

3 1! 

3 1! 

3 1! 

3 1! 

: 1! 

; 1} 

3 1 ! INPUT PARAMETERS: 

3 1! ID: identifier longword to convert, or -1 to 

; 1/ find all identifiers (wildcarding) 

3 O3e8 } : CONTXT: nent bene eddress of 2 ager’ ee a record stream 
3 ! context. in shou ero, value outpu 

3 $ 0367 : } on first call, value input on subsequent celts. 

: 37 0 68 1 | IMPLICIT INPUTS: 

; an 69 1! NONE 

3; 37 0370 1! 

3; 374 0371 1 ! OUTPUT PARAMETERS: 

g Le B38 ’ NAMLEN: tes pe address of a word to store the length of the 
; ! en er name 

3 As 0374 : : NAMBUF : pape weg nag he = +h sherester oye mg Syserroter that 
3 ! escribes the buffer to return the n er na 

; ie O39 ! RESID: Cot ione)) address of a longword to return the id found 
3 ! while wildcardin 

3 a 0 8 \ ATTRIB: (optional) oddrets to return the attributes longword 
; 38 +} 1 ! IMPLICIT OUTPUTS: 

; 384 1ag NONE A 

: «385 Hf 1! 

: "y] 8 1 ! ROUTINE VALUE: 

; 3 0 1! Status of operation 

3 4 0385 1! 

3 9 Bano 1 ! SIDE EFFECTS: 

3; 390 1! NONE 

3; 391 38 1! 

Bs gin 

: 39% 3 BEGIN 

3; 395 36 

3 38 9 LOCAL 

:; 39 94 1D : LONG, ' local copy of ID 

; 398 95 LOC_NAMLEN : LONG, ' Local copy of NAMLEN 

; 399 36 LOC _NAMBUF : LONG, ' Local copy of NAMBUF 

: 400 9 LENGTH : LONG, ! output from EXESPROBEW_DSC 
: 401 i ADDRESS : LONG, ' output from GXESeROSCH_DSC 
: 6 § C_RESID LONG, ' Local copy of RESID 

3; 4 OC_ATTRIB LONG, ' Local copy of ATTRIB 

3; 4 LOC_CONTXT LONG, ' local Fop of CONTXT 

3; 405 ¢ STATUS : LONG, ' general status value 

3; (4 4 : LONG, ! string pointer 


SYSRDBRES SYSRDBRES = Rights database resident system ser 1b-5¢ Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 12 
yen 006 ° . Haat 9¢: 8: 34 o¥s SREdSY YSR RBORES O3004 ” (4) 
7 CLOSE : qn ' call tor tite. 170 RDB flag 
RAB RAB *DECL, ! RAB f 
REC_BUFFER : SBBLOCK CKGBSK_ IDENT "RECORDS 
: T record buf fer to read records 
1 LABEL 
\ RDB_OPEN; ! rights database is open in this block 
1 : p an Senee parameters 
1 
1 LOC_ID = .ID; 
1 IF gboc_ib ea -1 


"BEGIN 
IF .CONTXT EQLU 0 THEN RETURN SS$_INSFARG; 
LOC_ID = 0; 


ELSE 
IF (.LOC_ID AND UICSM_ID_FORM_FLAG) NEQU 0 
CIF (.LOC_ID GTRU UICSK_LAST_ID) THEN RETURN SSS$_IVIDENT) 


ELSE 
CIF (.LOC_ID GTRU UICSK_MAX_UIC) OR (.LOC_ID EQL 0) THEN RETURN SS$_IVIDENT) 


@ 


LOC_NAMLEN = 
IF <LOC _NAMLEN NNEGU " AND NOT PROBEW (ZREF(O), ZREF(2), .LOC_NAMLEN) 


N 
RETURN SS$_ACCVI1O; 
LOC_NAMBUF = .NAMBUF ; 


Sk eh et et ek ak et tet et et at Bk kee ee Oe ae ee el ee ee eed 
VIF UNO OONAOUES WN “OOONOUS WN 


Sesser 
FRLRELLELLLLELELLSLELLLLLRELLKRERELES 


PEEPLES F&F FW ININININININININID 2 2 OO Oe ee 


440 IF TLOC ” NAMBUE nequ 6 

441 THEN 

44 BEGIN 

44 4 IF NOT (STATUS = EXESPROBEW_DSC (.LOC_NAMBUF; LENGTH, ADDRESS)) 


——— ~ STATUS 
LENGTH = .LENGTH AND 2X'FFFF® 


LOC_RESID = .RESID 
1 SLOC_RESID NEQU’ ‘9 AND NOT PROBEW (ZREF(O), ZREF(4), .LOC_RESID) 


RETURN SS$_ACCVIO; 


LOC_ATTRIB = .ATTRIB 
i toc. ATTRIB NEQU 6 AND NOT PROBEW (ZREF(O), ZREF(4), .LOC_ATTRIB) 


RETURN SS$_ACCVIO; 


LOC_CONTXT = .CONTX 
If toc. CONTXT NEQU " AND NOT PROBEW (ZREF(O), ZREF(4), .LOC_CONTXT) 


E 
RETURN SS$_ACCVIO; 


NAME WN OC OOONAUN EWN 0 ODNAUNE WN O ODN E WH OOONOUM 


NOUS WIN OOo 


PUPS 


> lin ne Rge SPR ew Se RT NE 
“4 ~ - 4 


FOO AAA NAD NT Be 
CIS SSVSEUFLUNAS Se MEW 
FRLRLLRLLKLLELELLLEL 


Owen 


o 


—< 
4d 


RDBRES SYSRDBRES = Rights database resident system ser 1b-5¢ Sep-1984 AX-11 Bliss-32 V4.0-74 P 
800 ° , et 7 9¢: #8: 34 SYS.SRCISYSRDBRES .B32; = a} 


<u 
g 


Pun 


! Open the rights database for re cing. Note sh the Pres a 
i spec jes K te so the stream w e correrst H positioned f 

‘eb cit 
i 


: 464 4 

BPE: 

; te " 5 ldcard if ted. If l identifi ; i 
: cardin nam requested. an ex en er : en, 
; rs re § set up to 9ey te Tdentit er key. . ft 
: 471 4 

3 tis P 489 SRAB_INIT (RAB = RAB, 

a BB 3 

4 = 

; 475 & tts ROP = (WAT 

; 476 P 3 vy: = Ko@sk IDEN RECORD, 

D4 s 

: 47 75 ); 

: 279 i: IF .LOC_ID NEQU 0 

: 3B ig 

; 48¢ 0479 RAB RABSB_ RAC] = RABSC_KEY; 

; 48 480 RAB RABSB. KRFJ = 0; 

3 tke 1 RASCRABSB_KSZ]) = 4; 

; iss i rast RABSL-KBFJ = LOC_ID; 

3; 6 4 

: rit 485 STATUS = EXESOPEN_RDB (.LOC_CONTXT, 0, RABCRABSW_ISIJ, CLOSE); 

5 re 6 IF NOT .STATUS THEN RETURN <STATUS: 

: 491 88 2 RDB_OPEN: 

i 49 489 “BEGIN 

: 494 0491 ! Read the record and return the data items. If wildcarding, we skip the 
3 $32 3 maintenance record. 

; 499 494 

; 498 95 WHILE 1 DO 

:; 499 38 4 BEGIN 

: 500 497 & STATUS = $GET (RAB = RAB); 

: 501 98 4 IF .STATUS EQLU RMSS$_RNF OR STATUS EQLU RMSS$_EOF 

; 206 499 4 THEN 

$ 0 500 4 STATUS = SS$_NOSUCH 

3; 504 501 4 IF astAlys EQLU RMSS_ etd OF MEN STATUS = SS$_NORMAL; 

3 202 5 3 4 IF NOT .STATUS 

3 5] 5 4 THEN 

; 308 5 Bane AUS LOC_CONTXT); 

; 10 507 4 

3 1 5 3 4 

: \ 34 ; 4 poy NEQU 0 OR .REC_BUFFERCKGBSL_IDENTIFIER] NEQU 0 

: i 1 5, ExITLOOP: 

> 51 51 me 

3 i$ 514 ' Return the requested data. Find the trait ing spaces in the name 
: 319 316 string so it can be returned as a variable length string. 

: 520 51 


14 
SYSRDBRES SYSRDBRES = Rights database resident system ser 18-56 -1984 02:38:54 AX-11 Bliss-32 V4.0-74 P 14 
v04- 8 r 1 =308 138% 96:78:38 OVS SREISTERDORES O3004 sit (4) 
SFIND_CH (KGBSS_NAME, REC_BUFFERCKGBST_NAMEJ, ' '); 
FAIL T.P) THEN P = REC_BUFFERCKGBST_NAME] * KGBSS_NAME; 
C_NAMLEN NEQU 8 THEN (.LOC_NAMLEN)<0,16> = .P = REC_BUFFERCKGBST_NAME); 
C_NAMBUF NEQU 


CHSCOPY (KGBSS_NAME, REC_BUFFERCKGBST_NAMEJ, ' °, .LENGTH, .ADDRESS); 
IF .LOC_RESID NEQU 0 THEN .LOC_RESID = .REC_BUFFERCKGBSL_IDENTIFIER); 
IF .LOC_LATTRIB NEQU 0 THEN .LOC_ATTRIB = .REC_BUFFER KGBSL_ATTRIBUTESJ; 
STATUS = SS$_NORMAL; 
END; 

Close the rights database if there is no image 


LOSE THEN EXESCLOSE_RDB(); 
N .STATUS 


mm fm fm fo feo loofolololeleloloeleleololo) 
PUPP wn 
NOUS WO OONOULS Wt O00 
——— “oO 
xs 7 
m il 
Zee oO 
cr =O 
oo #=z 


! End of routine EXESSIDTOASC 


OFFC 00000 ENTRY EXESSIDTOASC, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0347 
SE FF70 CE 9€E 0000 MOVAB -144(SP), SP ; 
14 AF 04 AC DO 0000 MOVL 1D, LOC_{pD + 0415 
5 14 AE 00 900 MOVL Loe_ip RO + 0416 
FFFFFFFF © 8F 50 01 0001 CMPL = RO, "#4 ; 
10 if 0001 BNEO  2$ : 
18 AC OD 90019 TSTL _ CONTXT > 0419 
06 12 0001C BNEQ ~=«'T$ : 
50 0114 8F 3¢ OO1F MOVZWL #276, RO ; 
04 000 RET ; 
16 AE D& 00024 1$ CLRL LC_1D > 0420 
: 11 00027 BRB 5 > 0416 
03 0029 2$ TSTL RO + 0424 
Q 1 0 B BGEQ }60s«3$ F 
SFFFFFFF © 8F D1 D CMPL RO, #-1879048193 > 0426 
1 ib BLEGU 5$ : 
9 1 BRB 4$ : 
SFFFFFFF © 8F D1 3$ CMPL RO. #1073741823 > 0428 
4 1A F BGTRU 4 : 
0 03 41 TSTL RO ; 
ge rh BNEQ 5$ 3 
50 2224 8F 3¢ a5 4$ MOVZWL #8740, RO 
58 08 AC D0 B S$ MOVL §-NAMLEN, LOC_NAMLEN : 04 1 
AF D é CLRL = (SP) : 0432 
5 03 : TSTL OC _NAMLEN ; 
09 BEQL : 
08 Ar é § INCL (SP) : 
68 02 Q PROBEW #9 #2, (LOC_NAMLEN) : 
A D BEQL 11§ : 
51 0c AC D F 6$: MOVL § NAMBUF, LOC_NAMBUF > 0436 


14 
SYSRDBRES SYSROBRES = Rights database resident system ser 18-5e -1984 02:38:54 AX-11 Bliss- 4.0-74 SYS 
yOen 006 ° , Vergee~] 3B MG:FB:35 PANS TE Bh iss a32 Ve - 05248 rege Te Tat 
04 AE D 3 CLRL 0s & (SP) : 0437 
$i b TSTL LOC _NAMBUF : ° 
— A Pct = S¢SP) ; 
. 000000006 F 1 JSB aFEXESPROBEW_DSC + 0440 
10 AE 9 D MOVL nt: ig(sp) : 
0c AF : D 7A MOVL  R2. 12(SP) : 
0 fF BLBS status, 7$ : 
0116 «31 BRW 7$ : 
10 AE AE f 7$: MOVZWL LENGTH, LENGTH + 0444 
SA 10 AC D 9 8$: MOVL RESID, LOC_RESID + 0447 
E D4 CLRL = (SP) > 0448 
A D3 F TSTL LOC_RESID : 
mrs BEQL $ 3 
6 6 0009 INCL (SP) : 
6A 04 06 0093 PROBEW #0, #4, (LOC_RESID) : 
59 146 AC OD $098 9$: MOVL ATTRIB, LOC_ATTRIB : 0452 
28 D4 O009F CLRL—sR11 + 045 
5 D3 0a TSTL LOC _ATTRIB : 
08 1 OAS BEQL 0$ F 
B 06 OOOA INCL R11. F 
69 04 00 op 0047 PROBEW #0, #4, (LOC_ATTRIB) : 
OC 13 OO0AB BEQL 118 ; 
57 18 AC 00 QOAD 10$:  MOVL = CONTXT, LOC_CONTXT + 0457 
OA 13 00081 BEQL 12$ + 0458 
67 04 00 OD 908 PROBEW #0, #4, (LOC_CONTXT) : 
04 12 0008 BNEQ 12 ; 
50 0c 00 0089 118 OVL #12, RO > 0460 
3 Vv s . - #68, SRMS_PTR : 
0044 8F 00 6E ‘i 00 C 9085 12$ MOVCS #0, (SP), #0, #68, $ T 0475 
4C AE 4401 8F BO 000C6 MOVW #17409, SRMS_PTR : 
50 AE 00120000 a 00 o0c¢ ROVE #1179648, $RAS_PTR+4 : 
6C AE 3 80 itty MOVW #48, ~SRMS_PTR+32 : 
70 AE 1c. OA 0 0B MOVAB REC.BUFFER, SRMS_PTR+36 : 
Fl AD Q 9 E MOVB #2, SRMS_PTR+53 ; 
04 O00E4 CLRL + 0476 
16 AE D3 OOES TSTL LOC_ID ; 
OF 1 E BEQL 138 F 
é p EB INCL ; F 
AE ED MOVE #1, -RAB+ 9 > 0479 
FO AD 4 : F MOVW RAB+ > 0481 
70 OAL 146 AE 9E O00FS MOVAB LOC_ID, RAB+48 > 048 
18 AE Hi FA 13$:  PUSHAB CLOS : 048 
5 AE 4 F PUSHAB ABs ; 
5 DD 001 PUSHL LOC_CONTXT : 
0000v cf 4 FB 001 CALLS #4, EXESOPEN_RDB : 
00 001 MOVL RO, STATUS ; 
0 10¢ BLBS status, 14$ + 0486 
00 10F BRW 7$ : 
4C AF F 001 é 14$:  PUSHAB RAB : 0497 
000000006 90 FB 0011 CALLS #1, SYSSGET ; 
0 00 0011¢ MOVL RO, STATUS : 


M14 
SYSRDBRES SYSRDBRES = Rights database resident system ser 16-Sep-1984 02:38:54 AX-11 BLi V4.0-74 
v04= ° 1%: aa 99:78:38 SYS.SRCJS SaboRes 635e1 
00018282 BF 6 2 F CPL STATUS, #98994 ; 
0001827A = BF § : cnPL STATUS, #98938 : 
6 21EC F 131 15$: MOVZWL # $84 STAT : 
000181A8 3 : of 136 16$:  CMPL ibe 198958 : 
12 00130 BNEG : 
56 1 00 0013F MOVL ies ; 
$ £8 00142 17$:  BLBS Star : 
DD 0014 PUSHL  LOC_CON ; 
FESG COEF FB 14 CALLS #1 ~EXESSFINISH. RDB : 
43 11 0014C BRB 26s ; 
05 52 €£ 145 18$ BLBS 2, 19$ : 
1¢ AE 05 001 TSTL REC_BUFFER ; 
¢ | 154 BEQL 14$7 : 
2c AE 20 A 00156 198 LOCC #32, #32, REC_BUFFER+16 : 
é 12 00158 BNEQ 20S : 
04 0015D CLRL sR ; 
51 05 O015F 208 STL =P : 
04 12 O16) BNEG 218 ; 
51 4C AE 3 163 MOVAB REC BUF FER*48, P : 
08 08 AE ; 0167 21$ BLBC &8(SP), 22$ ; 
50 2c AF 0168 MOV REC_BUFFER*16 RO ; 
68 51 50 A O16f SUBW3 «RO, P, (LOC NAMLEN) : 
09 06 =A : 1 : 22$ BLBC 4 (SP) 23$ ; 
10 AE 20 2c AE it 20 C O17 MOVCS #32, REC_BUFFER+16, #32, LENGTH, @ADDRESS : 
04 6— €9 00180 23$ BLBC = (SP) 248, ; 
6A 1¢ AE DO 001 MOVL REC BUFFER. (LOC_RESID) : 
04 5B £9 00187 24$ BLBC 53 ; 
69 20 AE DO 0018A MOVL REC “BUFFER+4, (LOC_ATTRIB) : 
$6 01 00 0018E 25$ MOVL @# as : 
05 18 AE €E9 00191 26$ BLBC OsE ; 
0000v CF 0 Fe 0195 CALLS & EXESCLOSE_ RDB ; 
50 6 DO 0019A 27$: MOVL STAT : 
04 00190 RET ; 


3; Routine Size: 414 bytes, Routine Base: YEXEPAGED + 0225 


N14 
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Wen 0G ° , 1 =300n 138% 96:78:38 Ys SaedsveRDaRes baec7 
; GLOBAL ROUTINE EXESOPEN_RDB (CONTXT, WRITE, ISI, CLOSE) = 


14 
i 
FUNCTIONAL DESCRIPTION: 


This routine sees to it that the rights database is open 

as needed. If a context is specified, it locates the specified 
stream or opens it. If the database needs to be re-opened 

for write, it does so. 


CALLING SEQUENCE: 
EXESOPEN_RDB (CONTXT, WRITE, ISI, CLOSE) 


INPUT PARAMETERS: 
CONTXT: address of a longword contetoing the record stream 
context. (IFI vector index) initially should be zero, 
alue output on first call, value input on subsequent calls. 
WRITE: to open re Phare 
1 to open read/write 


IMPLICIT INPUTS: 
NONE 


fe Te rete eee eee eww LD oY oe oe 


VORRANLSSSGSALSAR IS SSNS UAFUN SSeS REE OSSS 


OUTPUT PARAMETERS: 
ISI: address to return the internal stream identifier (IFI1) 
CLOSE: address to return a flag which indicates whether a call of 

EXESCLOSE_RDB is required. 
0 = an tnoge is active and a call is not required 
1 = no active image. EXESCLOSE_RDB must be called. 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status of RMS open 


SIDE EFFECTS: 
Rights database opened, ISI vector modified 


UPVC PUSOUDPVSUSUSUSUIUSU USUI 


SINS NNN SIOOOAAO 


DPUPVPV PVD PUPP PPE PVDUPUPUIVLVPVPUPUSUSIUSIVIVIUIVIUSUSUSUSVSUSUSUSVSIUSVSVSVSUSUSVOSUSISISVSTSTSIOSIOSISISISIIIOS 
GOOOOCOOQOOOQOOOooooooooooooooooOoOoCoooOoOoooOoOoOooooOooO 


SLSSLESLSSELEALANV ALS SHISASAN AS SHISALER IS SSIS AKU AS SON Rw 


PROROPOROPOPOPONOMONONONONINUNS 2 2 = 9 Ot 9 


Be Se Se Se Se Se Se Se Se Se Se Se Fe Se Ge Ge Be Ge Ge Se Ge Ge Ge Ge Ge Ss Ge Se Se Ge Ge Fe FF Se Se SF Se Se Sse Se Se SESE SeSeSeSseesss Se Sete Setsestsese 


2 BEGIN 

5 § REGISTER 

5 * 7, ' size returned from EXESALOP1IMAG 
3 : ADDRESS = 2; ! andress returned from EXESALOP1IMAG 
5 LOCAL 

5 STATUS LONG, ! general status value 

5 3 ISI_ INDEX LONG, ! index into ISI vector 

5 LOCAL_ISI : Ls. ' Local copy of ISI 

5 FAB FAB_DECL, ' FAB to open rights database 

591 RAB SRAB DEF, ' RAB to connect stream 

398 ARGLIST VECTOR ; i argument List for EXESSET_RDIPTR 
232 INITIAL (1,0); 


PAAAAAAAO 


PMIPOPUR — 
WN OVDONOuULWwN—O 


PRAAAAAAA AAA AAA AAA AA AAAS 


BOGOR AE WOOO NOE 


SSSSSSISSS 
MEW —OOONOUS WO 


AOAAAO 
DAMNMA 


15 


BEGIN 
a J FROM 1 TO RDISK_ISI_MAX 


Ww 


BEGIN 
inn CCTLSGL_RDIPTRCRDISL_ISI_VECJ, .J] EQLU 0 


SYSRDBRES = Rights database resident system ser 18-8¢ -1984 02:38:54 AX-11 Bliss-32 V4.0-74 
. . 1 =3e0 138% 96:78:38 YOyS SREISYSRDBRES O35, 
8? CLOSE = 0; 
3 H Allocate RDI if it has not been allocated already 
9 
° , IF _ .CTLSGL_RDIPTR EQLU 0 
THEN 

6 § BEGIN 

60 gl = EXESALOPIIMAG (RDISS_RDIDEF; SIZE, ADDRESS); 

604 F NOT .STATUS THEN RETURN SSS_INSFMEM; 

605 ett = SIZE; 

606 ARGLISTC1] = .ADORESS; 

STATUS = SYSSCMKRNL(EXESSET_RDIPTR, ARGLIST); 

608 IF NOT .STATUS THEN | te ~ STATUS; 

609 CHSFILL (0, RDISS_RDIDEF=4, .CTLSGL_RDIPTR+4); 

2i9 END; 

216 ! Locate the ISI implied by the context. If there is no context, we 
061 ! use ISI vector zero. If the context is zero, we find a free vector 
0614 ! entry. 

0615 ! 

B68 

061 IF .CONTXT EQLU 0 

0618 THEN 

0619 ISI_INDEX = 0 

0620 

0621 ELSE 

06 ; BEGIN 

06 ISI_LINDEX = ..CONTXT; 
0624 IF .ISI_INDEX GTRU RDISK_ISI_MAX THEN RETURN SS$_IVCHAN; 
0625 IF .ISI_INDEX EQLU 0 
06 $ THEN 

be BEGIN 

628 IF 
0629 
0630 
0631 
0638 

6 
06 

6 


> 


RIPPIN BANA A NN NA AA UNMIS & 


!' Get the ISI for the selected stream. If the ISI is zero, it must 


be opened. 


34 

5 BEGI 
ISI_INDEX = .J; 
EXITLOOP 0; 

3 END; 

END 
0 END 
; THEN RETURN SS$_NOIOCHAN; 
ELSE 

4 -VECTOR CCTLSGL_RDIPTRCRDISL_ISI_VEC], .ISI_INDEX] EQLU 0 THEN RETURN SS$_IVCHAN; 

5 IF .WRITE THEN ISI_INDEX = 0; 

§ eCONTXT = .ISI_INDEX; 


vw 
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So 
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oooooo 
SAN 
co 


re Oh legate V4.0=74 
-Sep-19 SYS.SRCISYSRDBRES .B32; 


LOCAL ISI = .VECTOR CCTLSGL_RDIPTRCRDISL_ISI_VEC], .ISI_INDEX]; 
IF .LOCAL_ISI NEQU 
nan” (IF .WRITE THEN -CTLSGL_RDIPTRCRDISL_IFI_WRITE] NEQU 0 ELSE 1) 
BEGIN 
(,1S81)<0,16> = .LOCAL_ISI; 
RETURN SS$_NORMAL; 
END; 
' Get a FAB gnq RAB set - for whatever now needs to be done. Note - 
the KRF = 2 is assumed by EXESSIDTOASC. 
SFAB_INIT (FAB = FAB 
FNM = 'RIGHTSLIST’, 
DNM = ‘SYSSSYSTEM:.DAT', 
FAC = GET 
SHR = (GEf, PUT, UPD, DEL, MSE) 


FABCFABSV_LNM_MODE] = PSL$C EXEC: 
FABCFABSW_IFIJ = .CTLSGL_RDIPTRCRDISL_IF1_READ); 


SRAB_INIT (RAB = RAB, 
FAB = FAB, 
KRF = 

RABCRABSW_1ISIJ 


-LOCAL_ISI; 
! If LOCAL_ISI is nonzero at this potat, it is because we need . database ° 
or 


reopened for write. Disconnect ISI entry 0 and set up to open 
! write. 
1 


IF .LOCAL_ISI NEQU 0 
THE 


N 
BEGIN 
VECTOR CCTLSGL_RDIPTRCRDISL_ISI VEC), 0] = 0; 
STATUS = SDISCONNECT (RAB ="RAB); 
IF NOT .STATUS THEN RETURN .STATUS; 
END; 
IF .WRITE 
THE 
BEGIN 
FABLFABSV_PUT] = 1; 
FABLFABSV—UPD) = 1: 
FABLFABSV-DEL} = 1; 
FAB FABSV~MSE) = 0; 


: Now open the file if it is not already suitably open. 


IF CIF WRITE 


gu gp? PL AOIPTRERD 84. 1F 1 URI TE? EQLU 0 


Page 


; 


19 
(5) 


SY! 


SYSROBRES 
04- 


ee a ns 


Wawro 


WN —OODONAUES WN "OO OONOUEW 


ANON aN NUNN 
uw 


Ww 
~ 


738 


SOSSSOSCOOCOOOOOOCOOOOOOOO OOOO OOOOO 


SN NS SSS 


FWAWWNA AWWA NOPOPONONIPPONN «38 3 


SOOWONA NEW (OS OONAOUE WN" OOONOUES WOO 


Bee Ge Ge Ge OH Se Ge Se Ge Se Ge Se Ge See Se Se Se SeSeSse Sete Sse Sete Ssetsetsesses 


54 
54 41 44 2€ SA 4D 


SYSRDBRES = Rights database resident system ser 1b-50 


4 
4 
4 
' 


WIFI] = 

GC_IMGHDR roi EQLU 0 
N 
SE 
F 


ee 3 


ABSV ‘bpr) = 1; 


SOPEN (FAB = FAB); 
—— THEN RETURN .STATUS; 


hd 


: 
i 


cm 
DANS 


in ze 
<S 
ne 
ae 


CTLSGL_ROIPTRCRDISL_IFI_WRITE) = 
> CTLSGL_RDIPTRCRDISL_IFI_READJ = 


STATUS = SCONNECT (RAB = 
IF NOT .STATUS THEN RETURN AB tATUS; 


VECTOR 
(.1S1)<0,16> =" .RABCRAB 
IF .CONTXT NEQU'O THEN .CONTXT = 


Sep-1984 
8ep-1984 


~CTLSGL_RDIPTRCRDISL_IFI_READ] EQLU 0 


' Now set up the RAB suitably and connect it. 


.FABLFABSW_IFIJ 
.FABCFABSW_IFIJ; 


8:70:25 UY 


1 Ol leans Hh et od 
SRCISYSRDBRES .B32; 


CTLSGL LAB IETRCRD ISL 1$1 VEC), .ISI_INDEX] = .RABCRABSW_ISIJ; 
e ISI_LINDEX; 


SS$_NORMAL 
END; ! End of routine EXESOPEN_RDB 
53 49 46 53 54 48 47 49 52 003C3 P.AAB: .ASCII \RIGHTSLIST\ 
45 54 53 59 53 24 53 59 53 OO3CD P.AAC: ASCII \SYSSSYSTEM:.DAT\ 
.EXTRN SYSSOPEN, SYSSCONNECT 
OFFC 00000 ENTRY Ripe _RDB, Save R2,R3,R4,R5,R6,R7,RB.RI.-; 
SE FF68 ce 9E 0000 VAB --1528(SP), $ 
1 oD 907 PUSHL #1 
04 AE D4 CLRL  ARGLIST+4 
if BC D oC CLRL acLOse 
000000006 9F p F TSTL gécTL GL_RDIPTR 
4 13 BNEO 
51 p 1 MOVL #56, RI 
000000006 9F 1A JSB @#EXESALOP1 IMAG 
5g D 9 MOVL RO, STAT 
06 BLBS STATUS 
0124 «28F ¢ 4 MOV ZUL #292, RO 
62 1 09 C 1$: MOVL size (ADDRESS) 
04 AE 2 D f MOVL DDRESS, A ARGLIST+4 
E DD PUSHL 


rae 8 


0604 


SY! 
vO: 


sy RDBRES SYSRDBRES = Rights database resident system ser Sys 


15 
G-ep-1964 09:88:54 YAK-11 OL 195-32. 4.02742 


1 
1 
0000v CF 9OF PUSHAB EXESSET_RDIPTR 
000000006 9F F : CALLS ae a#SYSS$CMKRNL 
D 4 MOVL TAT 
: 4 BLBS TATUS, 
50 000000006" ' 0 " 2$ SCVL AACTLSGL_RDIPTR, RO 
34 00 6 . 69 Be $ MOVCS #0, (SP); #0, #52, 4(RO) 
SA 7 aC D ; 3$: MOVL  CONTXT, R10 
Q 1 0 B BNEG 
$ D 5D CLRL 1$1_ INDEX 
4 if 5F BRB 1 
56 6A D 61 4$: MOVL (R10), ISI_INDEX 
OA 6 D1 00064 CMPL S1_INDEX, #10 
38 1A 00067 BGTRU 8$ 
50 000000006 SF DO 069 MOVL  @ACTLS$GL_RDIPTR, RO 
51 0C AO 9E 00070 MOVAB 12(R0), Ri 
36 D5 00074 TSTL S1_INDEX 
17 1 0076 BNEQ $ 
50 01 00 0007 MOVL =s#1 ! 
6140 D 0078 5$: TSTL © (RID CVI 
05 12 0007E BNE 
56 50 D 9080 MOVL J, ISI_INDEX 
15 11 0008 BRB 
F2 50 OA F3 00085 6$: AOBLEQ #19 J,.5$ 
50 0184 «8F 3¢ 0089 MOVZWL #436, RO 
4 0008E RET 
6146 05 OOO8F 7$: TSTL (RI) CISI_INDEX) 
06 12 00092 BNE 
50 013¢ BF 3¢ 0094 8$: MOVZWL #316, RO 
4 00099 RET 
02 08 aC 9 0 9A 9$: BLBC WRITE, 10$ 
56 D4 0009 CLRL ISI_INDEX 
6A 56 DO OOOAO 10$:  MOVL  ISIINDEX, (R10) 
57 000000006 _9F 06 OA3 11$:  MOVL aN CTL Sol RDIPTR, R7 
59 OC A746 DO OOOAA MOVL it )CISI_INDEXJ, LOCAL_ISI 
38 D4 OOAF CLRL = R11 
D3 081 TSTL LOCAL_ISI 
12 1 0085 BEQL t 
5B 06 0008 INCL R11 
05 08 AC E9 00087 BLBC WRITE, 12$ 
A? DO BB TSTL 8(R7) 
07 1 B BEQL 3$ 
0c BC C6 12$: MOVW , cAL_ISI, asi 
00F ¢ BRW 
0050 8F 00 6E we 92 26 200¢ 13$:  mMOVCS #0, (SP), #0, #88, SRMS_PTR 
4 AE 50: 5 F B 06 MOVW & 3, SRMS_PTR 
65 AE 798 F MOVW 459% SRMS_PTR+22 
$B AE 2 D MOVB = #2, SRMS_PTR+31 
AE FF ; CF 9E OOOE MOVAB P.AAB, SRMS_PTR+44 
70 soAE FF F E MOVAB P.AAC, S$RMS-PTR+4 
E64 AD OFOA &8F B 3 MOV 4385 SRMS-PTR+S 
FA AD 02 00 } F F INSV #1, #0, #2, ~FAB+ 
4E AE 06 A : F mOoVW 4(R7) FABS2 
0044 8F 00 6E ss 00 C FD MovcS #0, (SP), #0, #68, SRMS_PTR 


SYSRDBRES SYSRDBRES = Rights database resident system ser 
yon 000 . 3 
98 AE 4401 
D A 
44 «OA 4C 
OA A 
1 
5 


a: 
000000006 g iH 
88 08 Ac 
$¢ AE 98 
. a5 000000006 oF 
33 ta 
08 i 
0 
06 A 
3A 
af AE 
000000006 +4 
1 BC oi 
33 AE 4 
000000006 90 ™" oj 
Pont 
07 08 AC 
08 A0 4E 4 
alin: EE 
000000006 99 9 
35 3 
50 00000000G 9F 
be Be OA AE 
A 
Nae 
3 
3 Routine Size: 446 bytes, Routine Base: YEXEPAGED 


‘e6 
nn— 


som 


, 
1 

a0 BR 

1 
8 Hf 
58 O11C 
BB 
Ph 00158 
OB 9ui8¢ 

1 14$: 
Bee 
p89 125 : 
DS 00149 
03 ee 198: 
af a3] — 
DS 00156 
i we 
SP O16 18$: 
AB 80130 
BS OSTs 
DO 00176 
RP B81 2 
11 001 
3 001 19$: 
+4 4d 208: 
OB 819 
? Dat 218: 
gO DO1A1 22%: 
B 
D 


5 
ep l9be 43:46:20 ESS sme dsvSmbanes-036;1 


fp, Sis PIR 
‘thes 


FAB+2 
@4CTLSGL_IMGHDRBF 


#1, @CLOSE 
#4, FAB+6 


F 
#1, SYSSOPEN 

RO, STATUS 

STATUS, 21$ 
Q#CTLSGL_RDIPTR, RO 
WRITE. 19$ 

pABS * 8(RO) 
paete. 4(RO) 
#1, SYSSCONNECT 

0; STAT 


R 
STATUS, 3s 
STATUS, R 


aact 6. RDIPTR RO 
RABS2. 2(RO)CIS1_ INDEX] 
R +2, alSl 


2 
ISI_INDEX, (R10) 
#1, RO 


v 
a 
wo 
e 
~ 
ww 
~% 


S Be Se Ge Ge Ge Ge Ge Se Se Se Se Se Ge Sse Fe Se Be Be Fe Fe Se Fe Fe Fe Se Ge Be Ge Ge Se Be Ge Be Se Se Fe Be Se 


15 
SYSRDBRES SYSRDBRES = Rights database resident system ser 18-5¢ -1984 02:38:54 AX-11 Bliss-32 V4.0-74 Page 23 
aa tts 9 . 1 ~300n 138% 99:78:36 Heys SRedsveRDORES b3o, . (33 
; i re) } GLOBAL ROUTINE EXESCLOSE_RDB : NOVALUE = 
Bo BB yl 
: £30 45 1 | FUNCTIONAL DESCRIPTION: 
; 7 é rs 1 i This routine closes the rights database file and zeros the Rights 
: f ? rs : Database Identifier (RDI) table. 
: 755 7 0 1 | CALLING SEQUENCE: EX 
; f ° f } EXESCLOSE_RDB() = 
gs. 8 14 4 1 | INPUT PARAMETERS: mo 
eds 754 1! NONE NA 
3; 760 oe Be PC 
3; 761 7 § 1 ! IMPLICIT INPUTS: Pl 
3 £ } } NONE DR 
> 764 7 § 1 | OUTPUT PARANCTERS: 
: ee oye 1 | nen 
; re 0766 1} IMPLICIT OUTPUTS: 
3 oe8 Bre7 ! Rights database file closed and the RDI table zeroed. 
: 770 0765 1 ! ROUTINE VALUE: 
A are eh 
: 77 0768 1 | SIDE EFFECTS: 
3; 774 07 1! NONE 
: OR Opry i 
: O77 2 BEGIN 
: 779 07 
; 780 07 LOCAL 
: re) 4 FAB : SFAB_DECL; ! FAB to close rights database 
; 185 07 $FAB_INIT (FAB = FAB); 
; 786 i Close out read channels 
: 78 7 
: 788 7 IF .CTLSGL_RDIPTRCRDISL_IFI_READ] NEQU 0 
3 8° 7 THEN 
; @ 7 pceie 
; 791 7 FABLFABSW_IFIJ = .CTLSGL_RDIPTRCRDISL_IFI_READ); 
: re f + (FAB = FAB); 
> 79% 7 , 
3; 795 ! Close out write channels 
ORG 
; as 738 45 gi TLOGL _AOIPTRERD ISL IF 1 WRITES NEQU 0 
; 795 BEGIN 
3 1 a FABLFABSW_IFI] = ,CTLSGL_RDIPTRCRDISL_IFI_WRITE); 
3 2 79 SCLOSE (FAB = FAB); 


SXPRDBRES SYSRDBRES = Rights database resident system ser 1$-$ep-1964 09:98:38 AX-11 Oh eens V4 


YS | SREISTERDSRES 03044 
E i END; 
5 Zero RDI table 
0 i 
808 


prey tut (0, RDISS_RDIDEF=4, .CTLSGL_RDIPTR+4); 


eure. 


~EXTRN SYSSCLOSE 


OOFC 000 -ENTRY EXESCLOSE_RDB, Save R2,R3,R4,R5,R6,R7 3 0741 
7 990000006 90 9E 0000 MOVAB  SYSSCLOSE, R : 
BE oetote” AE SE 00010 oe il 1% Sell ln 
0050 8F 00 6E 00 3 O14 MOVC 10. (SPS, #0, #80, $RMS_PTR : 
6E 5003 F 8 1C MOVW #20483, SRMS_PTR 3 
16 AE 1 MOVB so, SRis_PTRE ge : 
1F Ha 9 3 MOVB #2, SRMS_PTR+51 5 
5 66 D MOVL CTL$GL_RBIPTR, RO r: 
06 AO D C TSTL  4(RO) ; 
OA 1 00 f BEQL ~=Ssés18 ; 
02 AE 046 AO BO 1 OVW  4(RO), FAB+2 ; 
5E DD 000 PUSHL SP ; 
67 07 FB 000 CALLS #1, SYSSCLOSE ; 
50 66 00 00038 1$: MOVL CTLSGL_RDIPTR, RO $ 
08 AO D 003 TSTL (RO) ; 
OA 13 0004 BEQL $ ; 
02 AE 08 Ad B0 04 MOV (RO), FAB+2 ; 
5E OD 4 PUSHL SP 3 
67 01 FB O4A CALLS #1, SYSSCLOSE ; 
50 66 D 90040 28: VE. CILSGL RDIPTR, RO F 
34 00 bE 00 2¢ 9050 MOVCS #0, (SP), #0, #52, 4(RO) ; 
04 A0 0005 F 
04 00057 RET ; 


3; Routine Size: 88 bytes, Routine Base: YEXEPAGED + 059A 


Ss 
V 


FEFLESEL AAG 


USRDRRES SYSRDBRES = Rights database resident system ser 15-Sep-1984 96:38:36 Yer eae b ee eabaele 3507 Page AS 


15 
-Sep-1 


i ROUTINE VALUE: 
SS$_NORMAL 


SIDE EFFECTS: 
NONE 


SOUS 


WWWWIAAI AI IPO POPP PoPonofnongd 


ODOooooocoo 


BEGIN 


CTLS$GL_RDIPTR = .ADDRESS; 
RETURN SS$_NORMAL; 


1} 5 ! GLOBAL ROUTINE EXESSET_RDIPTR (ADDRESS) = 
if : 1 !e4 
14 1! 
1? % ! FUNCTIONAL DESCRIPTION: 
i$ 5 EF This routine stores the address of the RDI block in CTLSGL_RDIPTR. 
18 \¢ 1! It is called from exec mode with the change to kernel mode system 
1 17 } ' service. 
1 15 1! CALLING SEQUENCE: 
¢ 18 1 : SYSSCMKRNL (EXESSET_RDIPTR, ARGLIST) 
4 18 1 | INPUT PARAMETERS: 
5 } ! } ADDRESS: The address of the allocated RDI block 
; 0 1 1°! IMPLICIT INPUTS: 
Ay lle 
0 OB 4 1 | OUTPUT PARAMETERS: 
1 oe 5 : NONE 
4 5 1 | IMPLICIT OUTPUTS: 
Ss tf NONE 
at 
7 ae 
1! 
$ fi 
4 1! 
5S 13 
$ 1! 
1 
: : 
9 
0 
1 
2 


ONOUSWN—O 


Oooooooo 
Fa tetetete 


0000 00 LENTRY EXESSET_RDIPTR, S thi ; 080 

000000006 9F og ac 88 88088 OV. ADDRESS; aNCTLSGL-RDIPTR 0808 
50 01 BO 900A MOVL «ow. R : 0841 

& 00000 ki : 0842 


3; Routine Size: 14 bytes, Routine Base: YEXEPAGED + O5F2 


9 3 1 
B30 OB 1 END 
51 5 0 ELUDOM 


J 15 
SYSRDBRES SYSRDBRES = Rights database resident system ser 16-Sep-1984 02:38:54 AX-11 Bliss-32 V4.0-7 P 6 SY 
v04-000 ° 4 atts Pak ep ae eT ert ee age 8 Ta 


PSECT SUMMARY 
Name Bytes Attributes 
YEXEPAGED 1536 NOVEC, WRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ree ee ee ee Symbols <-<------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 110 0 1000 00:01.8 
3 COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SYSRDBRES/OBJ=0BJ$:SYSRDBRES MSRC$:SYSRDBRES/UPDATE=(ENHS$:SYSRDBRES) 
3 Size: 1255 code + 281 data bytes 

3; Run Time: 0:30-5 

3 Fenced tans 4.2 

: es n 

; Seog A gd 279hs 

3 ry Ue sed: 203 pages 

3; Compilation Complete 


ee 


AH-BI13A-SE 
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